Voorbeeld van de methode Clear

Dit voorbeeld maakt gebruik van de methode Clear van het object Err om de numerieke eigenschappen van het object Err opnieuw op nul en de tekenreekseigenschap op tekenreeks zonder gegevens in te stellen. Als Clear zou ontbreken in de volgende programmacode, zou het foutberichtvenster na elke herhaling van de lus worden geopend (na het optreden van een fout), ongeacht of er met een opeenvolgende berekening al dan niet een fout werd gegenereerd. U kunt de programmacode stapsgewijs doorlopen om het effect vast te stellen.

Dim Result(10) As Integer    ' Declareert de matrix met elementen die
            ' gemakkelijk overlopen.
Dim indx
On Error Resume Next    ' Stelt foutopsporing uit.
Do Until indx = 10
    ' Genereert een incidentele fout of slaat resultaat op indien foutloos.
    Result(indx) = Rnd * indx * 20000
    If Err.Number <> 0 Then
        MsgBox Err, , "Fout gegenereerd: ", Err.HelpFile, Err.HelpContext
        Err.Clear    ' Wist eigenschappen van Err-object.
    End If
    indx = indx + 1
Loop